home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / function.e < prev    next >
Encoding:
Text File  |  1995-12-27  |  641 b   |  37 lines
  1.  
  2. -> Copyright © 1995, Guichard Damien.
  3.  
  4. -> Eiffel functions
  5.  
  6. -> Functions are very much like procedures except their type is not NIL
  7.  
  8. -> TO DO :
  9. ->   infix and prefix functions
  10.  
  11. OPT MODULE
  12. OPT EXPORT
  13.  
  14. MODULE '*ame'
  15. MODULE '*procedure'
  16.  
  17. OBJECT function OF procedure
  18. ENDOBJECT
  19.  
  20. -> Make a procedure.
  21. PROC copy() OF function
  22.   DEF other:PTR TO function
  23. ENDPROC NEW other
  24.  
  25. -> Is feature a procedure?
  26. PROC is_procedure() OF function IS FALSE
  27.  
  28. -> Is feature a function?
  29. PROC is_function() OF function IS TRUE
  30.  
  31. -> Feature value access mode
  32. PROC access() OF function IS M_REGISTER
  33.  
  34. -> Index for access to feature value
  35. PROC index() OF function IS 0
  36.  
  37.